Games Gallery 98/Games Gallery 98 - Disc 1.iso/Content/DOMINATN/dom1.exe/PLOT.RPP

Text File | 1996-11-01 | 336 b | 22 lines

{PLOT.RPP - Test #2}

var x: number; {declare x as a number}

randomize;     {seed random generator}

loop(x=1 to 10000)
  setcolor(rand(1, 255));
  plot(rand(0, maxx), rand(0, maxy));

  {end program with <SPACE> or <RIGHT>}
  if(kbcode(57) or (kbcode(77)))
    end;
  endif;
endl;

println("I am the man!");